home *** CD-ROM | disk | FTP | other *** search
/ Smart CD Digital Photos 2.1 / Smart CD Digital Photos 2.1.iso / photo / cht / setup.mst < prev    next >
Encoding:
Text File  |  1994-06-14  |  4.1 KB  |  165 lines
  1. ' Setup script file for SMARTCD
  2.  
  3. ''$DEFINE DEBUG  ''Define for script development/debugging
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'msdetect.inc'
  7.  
  8. ''Dialog ID's
  9. CONST WELCOME       = 100
  10. CONST ASKQUIT       = 200
  11. CONST DESTPATH      = 300
  12. CONST EXITFAILURE   = 400
  13. CONST EXITQUIT      = 600
  14. CONST EXITSUCCESS   = 700
  15. CONST OPTIONS       = 800
  16. CONST APPHELP       = 900
  17. CONST BADPATH       = 6400
  18.  
  19. ''Bitmap ID
  20. CONST LOGO = 1
  21.  
  22. GLOBAL DEST$        ''Default destination directory.
  23. GLOBAL OPTCUR$      ''Option selection from option dialog.
  24.  
  25. DECLARE SUB Install
  26. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  27.  
  28. INIT:
  29.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  30.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  31.  
  32.     SetBitmap CUIDLL$, LOGO
  33.     SetTitle "SMARTCD ¼█ñ∙Ñ·║╨│n╩^ªw╕╦╡{ªí"
  34.  
  35.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  36.     IF szInf$ = "" THEN
  37.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  38.     END IF
  39.     ReadInfFile szInf$
  40.  
  41.     OPTCUR$ = "1"
  42.     DEST$ = "C:\SMARTCD"
  43.  
  44. '$IFDEF DEBUG
  45.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  46.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  47.     IF IsDriveValid(WinDrive$) = 0 THEN
  48.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  49.         GOTO QUIT
  50.     END IF
  51. '$ENDIF ''DEBUG
  52.  
  53.  
  54. WELCOME:
  55.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  56.     IF sz$ = "CONTINUE" THEN
  57.         UIPop 1
  58.     ELSEIF sz$ = "EXIT" THEN
  59.         UIPopAll
  60.        ERROR STFQUIT
  61.     ELSE
  62.         GOTO WELCOME
  63.     END IF
  64.  
  65.  
  66. GETPATH:
  67.     SetSymbolValue "EditTextIn", DEST$
  68.     SetSymbolValue "EditFocus", "END"
  69. GETPATHL1:
  70.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  71.     DEST$ = GetSymbolValue("EditTextOut")
  72.  
  73.     IF sz$ = "CONTINUE" THEN
  74.         IF IsDirWritable(DEST$) = 0 THEN
  75.             GOSUB BADPATH
  76.             GOTO GETPATHL1
  77.         END IF
  78.         UIPop 1
  79.     ELSEIF sz$ = "REACTIVATE" THEN
  80.         GOTO GETPATHL1
  81.     ELSEIF sz$ = "BACK" THEN
  82.         UIPop 1
  83. '        GOTO OPTION
  84.     ELSE
  85.         GOSUB ASKQUIT
  86.         GOTO GETPATH
  87.     END IF
  88.  
  89.     Install
  90.  
  91. QUIT:
  92.     ON ERROR GOTO ERRQUIT
  93.  
  94.     IF ERR = 0 THEN
  95.         dlg% = EXITSUCCESS
  96.     ELSEIF ERR = STFQUIT THEN
  97.         dlg% = EXITQUIT
  98.     ELSE
  99.         dlg% = EXITFAILURE
  100.     END IF
  101. QUITL1:
  102.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  103.     IF sz$ = "REACTIVATE" THEN
  104.         GOTO QUITL1
  105.     END IF
  106.     UIPop 1
  107.  
  108.     END
  109.  
  110. ERRQUIT:
  111.     i% = DoMsgBox("¡∞⌐l└╔«╫┐∙╗~", "SMARTCD ªw╕╦╡{ªí", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  112.     END
  113.  
  114. BADPATH:
  115.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  116.     IF sz$ = "REACTIVATE" THEN
  117.         GOTO BADPATH
  118.     END IF
  119.     UIPop 1
  120.     RETURN
  121.  
  122. ASKQUIT:
  123.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  124.  
  125.     IF sz$ = "EXIT" THEN
  126.         UIPopAll
  127.         ERROR STFQUIT
  128.     ELSEIF sz$ = "REACTIVATE" THEN
  129.         GOTO ASKQUIT
  130.     ELSE
  131.         UIPop 1
  132.     END IF
  133.     RETURN
  134.  
  135. SUB Install STATIC
  136.  
  137.     SrcDir$ = MakePath(GetSymbolValue("STF_SRCDIR"), "SMARTCD\")
  138.     CreateDir DEST$, cmoNone
  139.  
  140.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  141.     CopyFilesInCopyList
  142.  
  143.     ini$ = MakePath(DEST$, "SMARTACC.INI")
  144.  
  145.     CreateProgmanGroup "SunMoonStar Digital PHOTOS 2.1", "", cmoNone
  146.     ShowProgmanGroup  "SunMoonStar Digital PHOTOS 2.1", 1, cmoNone
  147.     CreateProgmanItem "SunMoonStar Digital PHOTOS 2.1", "¼█ñ∙Ñ·║╨ Digital PHOTOS", MakePath(DEST$,"SMARTACC.EXE"), "", cmoOverwrite
  148.     CreateProgmanItem "SunMoonStar Digital PHOTOS 2.1", "┼¬º┌└╔«╫", "notepad.exe "+ MakePath(DEST$,"README.TXT"), "", cmoOverwrite
  149.  
  150. END SUB
  151.  
  152.  
  153. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  154.     IF szDir$ = "" THEN
  155.         MakePath = szFile$
  156.     ELSEIF szFile$ = "" THEN
  157.         MakePath = szDir$
  158.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  159.         MakePath = szDir$ + szFile$
  160.     ELSE
  161.         MakePath = szDir$ + "\" + szFile$
  162.     END IF
  163. END FUNCTION
  164.  
  165.